#########################################################
#Title: Mind the Gap: Why Wealthy Voters Support Brexit
#Authors: Jane Green and Raluca L Pahontu
#########################################################

rm(list=ls())
library(ggplot2)
library(readstata13)
library(coefplot)
library(colortools)
library(jtools)
setwd("~/Dropbox/Replication/BJPS")

sink("./analysis_logr.log")


#-----------------------------------------
#-----------------------------------------

#           Main Text Figures

#-----------------------------------------
#-----------------------------------------

source("./code/2-fig1.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 1
source("./code/3-fig2.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 2
source("./code/4-fig3.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 3
source("./code/5-fig4.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 4
source("./code/6-fig5.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 5
source("./code/7-fig6.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 6
source("./code/8-fig7.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 7


#source("./code/figc1.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure C1
source("./code/9-figd1.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure D1
source("./code/10-figd2.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure D2
source("./code/11-figd3.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure D3

sink()





